ace.define(
  'ace/mode/perl_highlight_rules',
  ['require', 'exports', 'module', 'ace/lib/oop', 'ace/mode/text_highlight_rules'],
  function (require, exports, module) {
    'use strict';
    var oop = require('../lib/oop');
    var TextHighlightRules = require('./text_highlight_rules').TextHighlightRules;
    var PerlHighlightRules = function () {
      var keywords =
        'base|constant|continue|else|elsif|for|foreach|format|goto|if|last|local|my|next|' +
        'no|package|parent|redo|require|scalar|sub|unless|until|while|use|vars';
      var buildinConstants = 'ARGV|ENV|INC|SIG';
      var builtinFunctions =
        'getprotobynumber|getprotobyname|getservbyname|gethostbyaddr|' +
        'gethostbyname|getservbyport|getnetbyaddr|getnetbyname|getsockname|' +
        'getpeername|setpriority|getprotoent|setprotoent|getpriority|' +
        'endprotoent|getservent|setservent|endservent|sethostent|socketpair|' +
        'getsockopt|gethostent|endhostent|setsockopt|setnetent|quotemeta|' +
        'localtime|prototype|getnetent|endnetent|rewinddir|wantarray|getpwuid|' +
        'closedir|getlogin|readlink|endgrent|getgrgid|getgrnam|shmwrite|' +
        'shutdown|readline|endpwent|setgrent|readpipe|formline|truncate|' +
        'dbmclose|syswrite|setpwent|getpwnam|getgrent|getpwent|ucfirst|sysread|' +
        'setpgrp|shmread|sysseek|sysopen|telldir|defined|opendir|connect|' +
        'lcfirst|getppid|binmode|syscall|sprintf|getpgrp|readdir|seekdir|' +
        'waitpid|reverse|unshift|symlink|dbmopen|semget|msgrcv|rename|listen|' +
        'chroot|msgsnd|shmctl|accept|unpack|exists|fileno|shmget|system|' +
        'unlink|printf|gmtime|msgctl|semctl|values|rindex|substr|splice|' +
        'length|msgget|select|socket|return|caller|delete|alarm|ioctl|index|' +
        'undef|lstat|times|srand|chown|fcntl|close|write|umask|rmdir|study|' +
        'sleep|chomp|untie|print|utime|mkdir|atan2|split|crypt|flock|chmod|' +
        'BEGIN|bless|chdir|semop|shift|reset|link|stat|chop|grep|fork|dump|' +
        'join|open|tell|pipe|exit|glob|warn|each|bind|sort|pack|eval|push|' +
        'keys|getc|kill|seek|sqrt|send|wait|rand|tied|read|time|exec|recv|' +
        'eof|chr|int|ord|exp|pos|pop|sin|log|abs|oct|hex|tie|cos|vec|END|ref|' +
        'map|die|uc|lc|do';
      var keywordMapper = this.createKeywordMapper(
        {
          keyword: keywords,
          'constant.language': buildinConstants,
          'support.function': builtinFunctions,
        },
        'identifier',
      );
      this.$rules = {
        start: [
          {
            token: 'comment.doc',
            regex: '^=(?:begin|item)\\b',
            next: 'block_comment',
          },
          {
            token: 'string.regexp',
            regex: '[/](?:(?:\\[(?:\\\\]|[^\\]])+\\])|(?:\\\\/|[^\\]/]))*[/]\\w*\\s*(?=[).,;]|$)',
          },
          {
            token: 'string',
            regex: '["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]',
          },
          {
            token: 'string',
            regex: '["].*\\\\$',
            next: 'qqstring',
          },
          {
            token: 'string',
            regex: "['](?:(?:\\\\.)|(?:[^'\\\\]))*?[']",
          },
          {
            token: 'string',
            regex: "['].*\\\\$",
            next: 'qstring',
          },
          {
            token: 'constant.numeric',
            regex: '0x[0-9a-fA-F]+\\b',
          },
          {
            token: 'constant.numeric',
            regex: '[+-]?\\d+(?:(?:\\.\\d*)?(?:[eE][+-]?\\d+)?)?\\b',
          },
          {
            token: keywordMapper,
            regex: '[a-zA-Z_$][a-zA-Z0-9_$]*\\b',
          },
          {
            token: 'keyword.operator',
            regex:
              '%#|\\$#|\\.\\.\\.|\\|\\|=|>>=|<<=|<=>|&&=|=>|!~|\\^=|&=|\\|=|\\.=|x=|%=|\\/=|\\*=|\\-=|\\+=|=~|\\*\\*|\\-\\-|\\.\\.|\\|\\||&&|\\+\\+|\\->|!=|==|>=|<=|>>|<<|,|=|\\?\\:|\\^|\\||x|%|\\/|\\*|<|&|\\\\|~|!|>|\\.|\\-|\\+|\\-C|\\-b|\\-S|\\-u|\\-t|\\-p|\\-l|\\-d|\\-f|\\-g|\\-s|\\-z|\\-k|\\-e|\\-O|\\-T|\\-B|\\-M|\\-A|\\-X|\\-W|\\-c|\\-R|\\-o|\\-x|\\-w|\\-r|\\b(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|xor)',
          },
          {
            token: 'comment',
            regex: '#.*$',
          },
          {
            token: 'lparen',
            regex: '[[({]',
          },
          {
            token: 'rparen',
            regex: '[\\])}]',
          },
          {
            token: 'text',
            regex: '\\s+',
          },
        ],
        qqstring: [
          {
            token: 'string',
            regex: '(?:(?:\\\\.)|(?:[^"\\\\]))*?"',
            next: 'start',
          },
          {
            token: 'string',
            regex: '.+',
          },
        ],
        qstring: [
          {
            token: 'string',
            regex: "(?:(?:\\\\.)|(?:[^'\\\\]))*?'",
            next: 'start',
          },
          {
            token: 'string',
            regex: '.+',
          },
        ],
        block_comment: [
          {
            token: 'comment.doc',
            regex: '^=cut\\b',
            next: 'start',
          },
          {
            defaultToken: 'comment.doc',
          },
        ],
      };
    };
    oop.inherits(PerlHighlightRules, TextHighlightRules);
    exports.PerlHighlightRules = PerlHighlightRules;
  },
);

ace.define(
  'ace/mode/matching_brace_outdent',
  ['require', 'exports', 'module', 'ace/range'],
  function (require, exports, module) {
    'use strict';
    var Range = require('../range').Range;
    var MatchingBraceOutdent = function () {};
    (function () {
      this.checkOutdent = function (line, input) {
        if (!/^\s+$/.test(line)) return false;
        return /^\s*\}/.test(input);
      };
      this.autoOutdent = function (doc, row) {
        var line = doc.getLine(row);
        var match = line.match(/^(\s*\})/);
        if (!match) return 0;
        var column = match[1].length;
        var openBracePos = doc.findMatchingBracket({ row: row, column: column });
        if (!openBracePos || openBracePos.row == row) return 0;
        var indent = this.$getIndent(doc.getLine(openBracePos.row));
        doc.replace(new Range(row, 0, row, column - 1), indent);
      };
      this.$getIndent = function (line) {
        return line.match(/^\s*/)[0];
      };
    }.call(MatchingBraceOutdent.prototype));
    exports.MatchingBraceOutdent = MatchingBraceOutdent;
  },
);

ace.define(
  'ace/mode/folding/cstyle',
  ['require', 'exports', 'module', 'ace/lib/oop', 'ace/range', 'ace/mode/folding/fold_mode'],
  function (require, exports, module) {
    'use strict';
    var oop = require('../../lib/oop');
    var Range = require('../../range').Range;
    var BaseFoldMode = require('./fold_mode').FoldMode;
    var FoldMode = (exports.FoldMode = function (commentRegex) {
      if (commentRegex) {
        this.foldingStartMarker = new RegExp(
          this.foldingStartMarker.source.replace(/\|[^|]*?$/, '|' + commentRegex.start),
        );
        this.foldingStopMarker = new RegExp(this.foldingStopMarker.source.replace(/\|[^|]*?$/, '|' + commentRegex.end));
      }
    });
    oop.inherits(FoldMode, BaseFoldMode);
    (function () {
      this.foldingStartMarker = /([\{\[\(])[^\}\]\)]*$|^\s*(\/\*)/;
      this.foldingStopMarker = /^[^\[\{\(]*([\}\]\)])|^[\s\*]*(\*\/)/;
      this.singleLineBlockCommentRe = /^\s*(\/\*).*\*\/\s*$/;
      this.tripleStarBlockCommentRe = /^\s*(\/\*\*\*).*\*\/\s*$/;
      this.startRegionRe = /^\s*(\/\*|\/\/)#?region\b/;
      this._getFoldWidgetBase = this.getFoldWidget;
      this.getFoldWidget = function (session, foldStyle, row) {
        var line = session.getLine(row);
        if (this.singleLineBlockCommentRe.test(line)) {
          if (!this.startRegionRe.test(line) && !this.tripleStarBlockCommentRe.test(line)) return '';
        }
        var fw = this._getFoldWidgetBase(session, foldStyle, row);
        if (!fw && this.startRegionRe.test(line)) return 'start'; // lineCommentRegionStart
        return fw;
      };
      this.getFoldWidgetRange = function (session, foldStyle, row, forceMultiline) {
        var line = session.getLine(row);
        if (this.startRegionRe.test(line)) return this.getCommentRegionBlock(session, line, row);
        var match = line.match(this.foldingStartMarker);
        if (match) {
          var i = match.index;
          if (match[1]) return this.openingBracketBlock(session, match[1], row, i);
          var range = session.getCommentFoldRange(row, i + match[0].length, 1);
          if (range && !range.isMultiLine()) {
            if (forceMultiline) {
              range = this.getSectionRange(session, row);
            } else if (foldStyle != 'all') range = null;
          }
          return range;
        }
        if (foldStyle === 'markbegin') return;
        var match = line.match(this.foldingStopMarker);
        if (match) {
          var i = match.index + match[0].length;
          if (match[1]) return this.closingBracketBlock(session, match[1], row, i);
          return session.getCommentFoldRange(row, i, -1);
        }
      };
      this.getSectionRange = function (session, row) {
        var line = session.getLine(row);
        var startIndent = line.search(/\S/);
        var startRow = row;
        var startColumn = line.length;
        row = row + 1;
        var endRow = row;
        var maxRow = session.getLength();
        while (++row < maxRow) {
          line = session.getLine(row);
          var indent = line.search(/\S/);
          if (indent === -1) continue;
          if (startIndent > indent) break;
          var subRange = this.getFoldWidgetRange(session, 'all', row);
          if (subRange) {
            if (subRange.start.row <= startRow) {
              break;
            } else if (subRange.isMultiLine()) {
              row = subRange.end.row;
            } else if (startIndent == indent) {
              break;
            }
          }
          endRow = row;
        }
        return new Range(startRow, startColumn, endRow, session.getLine(endRow).length);
      };
      this.getCommentRegionBlock = function (session, line, row) {
        var startColumn = line.search(/\s*$/);
        var maxRow = session.getLength();
        var startRow = row;
        var re = /^\s*(?:\/\*|\/\/|--)#?(end)?region\b/;
        var depth = 1;
        while (++row < maxRow) {
          line = session.getLine(row);
          var m = re.exec(line);
          if (!m) continue;
          if (m[1]) depth--;
          else depth++;
          if (!depth) break;
        }
        var endRow = row;
        if (endRow > startRow) {
          return new Range(startRow, startColumn, endRow, line.length);
        }
      };
    }.call(FoldMode.prototype));
  },
);

ace.define(
  'ace/mode/perl',
  [
    'require',
    'exports',
    'module',
    'ace/lib/oop',
    'ace/mode/text',
    'ace/mode/perl_highlight_rules',
    'ace/mode/matching_brace_outdent',
    'ace/mode/folding/cstyle',
  ],
  function (require, exports, module) {
    'use strict';
    var oop = require('../lib/oop');
    var TextMode = require('./text').Mode;
    var PerlHighlightRules = require('./perl_highlight_rules').PerlHighlightRules;
    var MatchingBraceOutdent = require('./matching_brace_outdent').MatchingBraceOutdent;
    var CStyleFoldMode = require('./folding/cstyle').FoldMode;
    var Mode = function () {
      this.HighlightRules = PerlHighlightRules;
      this.$outdent = new MatchingBraceOutdent();
      this.foldingRules = new CStyleFoldMode({ start: '^=(begin|item)\\b', end: '^=(cut)\\b' });
      this.$behaviour = this.$defaultBehaviour;
    };
    oop.inherits(Mode, TextMode);
    (function () {
      this.lineCommentStart = '#';
      this.blockComment = [
        { start: '=begin', end: '=cut', lineStartOnly: true },
        { start: '=item', end: '=cut', lineStartOnly: true },
      ];
      this.getNextLineIndent = function (state, line, tab) {
        var indent = this.$getIndent(line);
        var tokenizedLine = this.getTokenizer().getLineTokens(line, state);
        var tokens = tokenizedLine.tokens;
        if (tokens.length && tokens[tokens.length - 1].type == 'comment') {
          return indent;
        }
        if (state == 'start') {
          var match = line.match(/^.*[\{\(\[:]\s*$/);
          if (match) {
            indent += tab;
          }
        }
        return indent;
      };
      this.checkOutdent = function (state, line, input) {
        return this.$outdent.checkOutdent(line, input);
      };
      this.autoOutdent = function (state, doc, row) {
        this.$outdent.autoOutdent(doc, row);
      };
      this.$id = 'ace/mode/perl';
      this.snippetFileId = 'ace/snippets/perl';
    }.call(Mode.prototype));
    exports.Mode = Mode;
  },
);
(function () {
  ace.require(['ace/mode/perl'], function (m) {
    if (typeof module == 'object' && typeof exports == 'object' && module) {
      module.exports = m;
    }
  });
})();
